home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Updates, etc. / PG PRO⁄PG Lite Demos / PG PRO Demo / PG PRO Demo.rsrc / TEXT_3010_CTB.INCL.txt < prev    next >
Text File  |  1993-09-10  |  68KB  |  1,624 lines
  1. '==================================================================
  2. '==                                                              ==
  3. '== Comm Toolbox Interface              Written by Chris Stasny  ==
  4. '== D.O.B.: April 24, 1993               Staz‚Ñ¢ Software, Inc.    ==
  5. '==                                                              ==
  6. '==================================================================
  7. END GLOBALS
  8. COMPILE 0,_MacsbugLabels_strResource_caseInsensitive'set by PG:PRO
  9. INCLUDE FILE _aplIncl
  10. GOTO "CTB End"
  11. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  12. '‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢                 CONNECTION MANAGER                 ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  13. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  14. '-------------------------------------------------|----------------
  15. LOCAL FN InitCTBUtilities
  16. '-----------------------------------------------|----------------
  17. selector = _InitCTBUtilities
  18. `     LEA     ^selector,A0
  19. `     DC.W    CommToolboxDispatch
  20. `     EXT.L   D0
  21. END FN
  22. '-------------------------------------------------|----------------
  23. LOCAL FN CTBGetCTBVersion
  24. '-----------------------------------------------|----------------
  25. selector = _CTBGetCTBVersion
  26. `     LEA     ^selector,A0
  27. `     DC.W    CommToolboxDispatch
  28. `     EXT.L   D0
  29. END FN
  30. '-------------------------------------------------|----------------
  31. 'Page 36 InitCM : CMErr;
  32. 'FB      CMErr = FN InitCM
  33. '-------------------------------------------------|----------------
  34. LOCAL FN InitCM
  35. selector = _initCM
  36. `     LEA     ^selector,A0
  37. `     DC.W    CommToolboxDispatch
  38. `     EXT.L   D0
  39. END FN
  40. '-------------------------------------------------|----------------
  41. 'Page 65 CMGetCMVersion: INTEGER ;
  42. 'FB      version = FN CMGetCMVersion
  43. '-------------------------------------------------|----------------
  44. LOCAL FN CMGetCMVersion
  45. selector = _CMGetCMVersion
  46. `     LEA     ^selector,A0
  47. `     DC.W    CommToolboxDispatch
  48. `     EXT.L   D0
  49. END FN
  50. '-------------------------------------------------|----------------
  51. 'Page 37 CMGetProcID (name: Str255) : Integer;
  52. 'FB      ProcID = FN CMGetProcID(ToolFileName$)
  53. '-------------------------------------------------|----------------
  54. LOCAL: DIM selector
  55. LOCAL FN CMGetProcID(@ptr&)
  56. selector = _CMGetProcID
  57. `     LEA     ^selector,A0
  58. `     DC.W    CommToolboxDispatch
  59. `     EXT.L   D0
  60. END FN
  61. '-------------------------------------------------|----------------
  62. 'Page 64 CMGetToolName (procID: INTEGER;VAR name: Str255);
  63. 'FB      FN CMGetToolName(procID,ToolFileName$)
  64. '-------------------------------------------------|----------------
  65. LOCAL: DIM selector,ptr&,procID
  66. LOCAL FN CMGetToolName(procID,@ptr&)
  67. selector = _CMGetToolName
  68. `     LEA     ^selector,A0
  69. `     DC.W    CommToolboxDispatch
  70. END FN
  71. '-------------------------------------------------|----------------
  72. 'Page 38 CMNew (procID: INTEGER; flags: CMRecFlags; desiredSizes:
  73. '               CMBufferSizes; refCon: LONGINT; userData : LONGINT)
  74. '               : ConnHandle;
  75. 'FB      hConn& = FN CMNew(procID,flags&,buffers&,refCon&,myData&)
  76. '-------------------------------------------------|----------------
  77. LOCAL: DIM selector,userData&,refCon&,buffers&,flags&,procID
  78. LOCAL FN CMNew(procID,flags&,@buffers&,refCon&,userData&)
  79. selector = _CMNew
  80. `     LEA     ^selector,A0
  81. `     DC.W    CommToolboxDispatch
  82. END FN
  83. '-------------------------------------------------|----------------
  84. 'Page 47 CMGetConfig (hConn: ConnHandle): Ptr;
  85. 'FB      ptr& = FN CMGetConfig(hConn&)
  86. '-------------------------------------------------|----------------
  87. LOCAL: DIM selector
  88. LOCAL FN CMGetConfig(hConn&)
  89. selector = _CMGetConfig
  90. `     LEA     ^selector,A0
  91. `     DC.W    CommToolboxDispatch
  92. END FN
  93. '-------------------------------------------------|----------------
  94. 'Page 54 CMGetConnEnvirons (hConn : ConnHandle;
  95. '                          VAR theEnvirons : ConEnvironRec): CMErr;
  96. 'FB      CMErr = FN CMGetConnEnvirons(hConn&,environRec)
  97. '-------------------------------------------------|----------------
  98. LOCAL: DIM selector,environRec&,hConn&
  99. LOCAL FN CMGetConnEnvirons(hConn&,@environRec&)
  100. selector = _CMGetConnEnvirons
  101. `     LEA     ^selector,A0
  102. `     DC.W    CommToolboxDispatch
  103. `     EXT.L   D0
  104. END FN
  105. '-------------------------------------------------|----------------
  106. 'Page 50 CMDispose (hConn: ConnHandle);
  107. 'FB      FN CMDispose(hConn&)
  108. '-------------------------------------------------|----------------
  109. LOCAL:DIM selector
  110. LOCAL FN CMDispose(hConn&)
  111. selector = _CMDispose
  112. `     LEA     ^selector,A0
  113. `     DC.W    CommToolboxDispatch
  114. END FN
  115. '-------------------------------------------------|----------------
  116. 'Page 53 CMBreak (hConn: ConnHandle; duration: LONGINT;
  117. '               async: BOOLEAN; completor: ProcPtr);
  118. 'FB      FN CMBreak(hConn&,duration&,async,completor&)
  119. '-------------------------------------------------|----------------
  120. LOCAL: DIM selector,completor&,async,duration&,hConn&
  121. LOCAL FN CMBreak(hConn&,duration&,async,completor&)
  122. selector = _CMBreak
  123. `     LEA     ^selector,A0
  124. `     DC.W    CommToolboxDispatch
  125. END FN
  126. '-------------------------------------------------|----------------
  127. 'Page 41 CMChoose(VAR hConn:ConnHandle; where: Point;
  128. '                  idleProc: procPtr):INTEGER;
  129. 'FB      rslt = FN CMChoose(hConn&,thePoint&,procPtr&)
  130. '-------------------------------------------------|----------------
  131. LOCAL: DIM selector,procPtr&,pointX,pointY,hConn&
  132. LOCAL FN CMChoose(@hConn&,@thePoint&,procPtr&)
  133. `     MOVE.L  ^thePoint&,A0
  134. `     MOVE.W  (A0)+,^pointX
  135. `     MOVE.W  (A0),^pointY
  136. selector = _CMChoose
  137. `     LEA     ^selector,A0
  138. `     DC.W    CommToolboxDispatch
  139. `     EXT.L   D0
  140. END FN
  141. '-------------------------------------------------|----------------
  142. 'Page 49 CMAbort (hConn: ConnHandle) : CMErr;
  143. 'FB      CMErr = FN CMAbort(hConn&)
  144. '-------------------------------------------------|----------------
  145. LOCAL: DIM selector
  146. LOCAL FN CMAbort(hConn&)
  147. selector = _CMAbort
  148. `     LEA     ^selector,A0
  149. `     DC.W    CommToolboxDispatch
  150. `     EXT.L   D0
  151. END FN
  152.  
  153. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  154. '‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ Routines after this point haven't been tested, but ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  155. '‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢ should work without any trouble                    ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  156. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  157.  
  158. '-------------------------------------------------|----------------
  159. 'Page 52 CMAccept (hConn: ConnHandle; accept: BOOLEAN) : CMErr;
  160. 'FB      CMErr = FN CMAccept(hConn&,bool)
  161. '-------------------------------------------------|----------------
  162. LOCAL: DIM selector,bool,hConn&
  163. LOCAL FN CMAccept(hConn&,bool)
  164. selector = _CMAccept
  165. `     LEA     ^selector,A0
  166. `     DC.W    CommToolboxDispatch
  167. `     EXT.L   D0
  168. END FN
  169. '-------------------------------------------------|----------------
  170. 'Page 61 CMActivate (hConn: ConnHandle; activate: BOOLEAN);
  171. 'FB      FN CMActivate(hConn&,bool)
  172. '-------------------------------------------------|----------------
  173. LOCAL: DIM selector,bool,hConn&
  174. LOCAL FN CMActivate(hConn&,bool)
  175. selector = _CMActivate
  176. `     LEA     ^selector,A0
  177. `     DC.W    CommToolboxDispatch
  178. END FN
  179. '-------------------------------------------------|----------------
  180. 'Page 59 CMAddSearch (hConn: ConnHandle; theString: Str255;
  181. '               flags: CMSearchFlags; callBack: ProcPtr): LONGINT;
  182. 'FB      searchRefNum& = FN CMAddSearch(hConn&,searchTxt$,
  183. '               flags%,callBackProc&)
  184. '-------------------------------------------------|----------------
  185. LOCAL: DIM selector,callBackProc&,flags,txtPtr&,hConn&
  186. LOCAL FN CMAddSearch(hConn&,@txtPtr&,flags,callBackProc&)
  187. selector = _CMAddSearch
  188. `     LEA     ^selector,A0
  189. `     DC.W    CommToolboxDispatch
  190. END FN
  191. '-------------------------------------------------|----------------
  192. 'Page 40 CMDefault(VAR theConfig: Ptr; procID: INTEGER;
  193. '                  allocate: BOOLEAN);
  194. 'FB      FN CMDefault(config,procID,allocate)
  195. '-------------------------------------------------|----------------
  196. LOCAL: DIM selector,allocate,procID,configPtr&
  197. LOCAL FN CMDefault(@configPtr&,procID,allocate)
  198. selector = _CMDefault
  199. `     LEA     ^selector,A0
  200. `     DC.W    CommToolboxDispatch
  201. END FN
  202. '-------------------------------------------------|----------------
  203. 'Page 40 CMValidate(hConn: ConnHandle) : BOOLEAN;
  204. 'FB      bool = FN CMValidate(hConn&)
  205. '-------------------------------------------------|----------------
  206. LOCAL: DIM selector,hConn&
  207. LOCAL FN CMValidate(hConn&)
  208. selector = _CMValidate
  209. `     LEA     ^selector,A0
  210. `     DC.W    CommToolboxDispatch
  211. `     EXT.L   D0
  212. END FN
  213. '-------------------------------------------------|----------------
  214. 'Page 60 CMClearSearch (hConn: ConnHandle);
  215. 'FB      FN CMClearSearch(hConn&)
  216. '-------------------------------------------------|----------------
  217. LOCAL: DIM selector
  218. LOCAL FN CMClearSearch(hConn&)
  219. selector = _CMClearSearch
  220. `     LEA     ^selector,A0
  221. `     DC.W    CommToolboxDispatch
  222. END FN
  223. '-------------------------------------------------|----------------
  224. 'Page 49 CMClose (hConn: ConnHandle; async : BOOLEAN;
  225. '                 completor : ProcPtr; timeout : LONGINT;
  226. '                 now : BOOLEAN): CMErr;
  227. 'FB      CMErr = FN CMClose(hConn&,async,completor&,timeOut&,now)
  228. '-------------------------------------------------|----------------
  229. LOCAL: DIM selector,now,timeOut&,completor&,async,hConn&
  230. LOCAL FN CMClose(hConn&,async,completor&,timeOut&,now)
  231. selector = _CMClose
  232. `     LEA     ^selector,A0
  233. `     DC.W    CommToolboxDispatch
  234. `     EXT.L   D0
  235. END FN
  236. '-------------------------------------------------|----------------
  237. 'Page 63 CMEnglishToIntl (hConn: ConnHandle; inputPtr : Ptr;
  238. '                 VAR outputPtr: Ptr; language: INTEGER): OSErr;
  239. 'FB      OSErr = FN CMEnglishToIntl(hConn&,English$,
  240. '                 foreign$,language)
  241. '-------------------------------------------------|----------------
  242. LOCAL: DIM selector,language,outputPtr&,inputPtr&,hConn&
  243. LOCAL FN CMEnglishToIntl(hConn&,@inputPtr&,@outputPtr&,language)
  244. selector = _CMEnglishToIntl
  245. `     LEA     ^selector,A0
  246. `     DC.W    CommToolboxDispatch
  247. `     EXT.L   D0
  248. END FN
  249. '-------------------------------------------------|----------------
  250. 'Page 63 CMIntlToEnglish (hConn: ConnHandle; inputPtr : Ptr;
  251. '                 VAR outputPtr: Ptr; language: INTEGER): OSErr;
  252. 'FB      OSErr = FN CMIntlToEnglish(hConn&,foreign$,
  253. '                 English$,language)
  254. '-------------------------------------------------|----------------
  255. LOCAL: DIM selector,language,outputPtr&,inputPtr&,hConn&
  256. LOCAL FN CMIntlToEnglish(hConn&,@inputPtr&,@outputPtr&,language)
  257. selector = _CMIntlToEnglish
  258. `     LEA     ^selector,A0
  259. `     DC.W    CommToolboxDispatch
  260. `     EXT.L   D0
  261. END FN
  262. '-------------------------------------------------|----------------
  263. 'Page 62 CMEvent (hConn: ConnHandle; theEvent : EventRecord);
  264. 'FB      FN CMEvent(hConn&,gWhat)
  265. '-------------------------------------------------|----------------
  266. LOCAL: DIM selector,eventRec&,hConn&
  267. LOCAL FN CMEvent(hConn&,@eventRec&)
  268. selector = _CMEvent
  269. `     LEA     ^selector,A0
  270. `     DC.W    CommToolboxDispatch
  271. END FN
  272. '-------------------------------------------------|----------------
  273. 'Page 64 CMGetRefCon (hConn: ConnHandle): LONGINT;
  274. 'FB      refCon& = FN CMGetRefCon(hConn&)
  275. '-------------------------------------------------|----------------
  276. LOCAL:DIM selector
  277. LOCAL FN CMGetRefCon(hConn&)
  278. selector = _CMGetRefCon
  279. `     LEA     ^selector,A0
  280. `     DC.W    CommToolboxDispatch
  281. END FN
  282. '-------------------------------------------------|----------------
  283. 'Page 65 CMGetUserData (hConn: ConnHandle): LONGINT;
  284. 'FB      UserData& = FN CMGetUserData(hConn&)
  285. '-------------------------------------------------|----------------
  286. LOCAL:DIM selector
  287. LOCAL FN CMGetUserData(hConn&)
  288. selector = _CMGetUserData
  289. `     LEA     ^selector,A0
  290. `     DC.W    CommToolboxDispatch
  291. END FN
  292. '-------------------------------------------------|----------------
  293. 'Page 65 CMGetVersion (hConn: ConnHandle): Handle;
  294. 'FB      vHndl& = FN CMGetVersion(hConn&)
  295. '-------------------------------------------------|----------------
  296. LOCAL:DIM selector
  297. LOCAL FN CMGetVersion(hConn&)
  298. selector = _CMGetVersion
  299. `     LEA     ^selector,A0
  300. `     DC.W    CommToolboxDispatch
  301. END FN
  302. '-------------------------------------------------|----------------
  303. 'Page 50 CMIdle (hConn: ConnHandle);
  304. 'FB      FN CMIdle(hConn&)
  305. '-------------------------------------------------|----------------
  306. LOCAL:DIM selector
  307. LOCAL FN CMIdle(hConn&)
  308. selector = _CMIdle
  309. `     LEA     ^selector,A0
  310. `     DC.W    CommToolboxDispatch
  311. END FN
  312. '-------------------------------------------------|----------------
  313. 'Page 52 CMIOKill (hConn: ConnHandle; which: INTEGER): CMErr;
  314. 'FB      CMErr = FN CMIOKill(hConn&,which)
  315. '-------------------------------------------------|----------------
  316. LOCAL: DIM selector,which,hConn&
  317. LOCAL FN CMIOKill(hConn&,which)
  318. selector = _CMIOKill
  319. `     LEA     ^selector,A0
  320. `     DC.W    CommToolboxDispatch
  321. `     EXT.L   D0
  322. END FN
  323. '-------------------------------------------------|----------------
  324. 'Page 50 CMListen (hConn: ConnHandle; async: BOOLEAN
  325. '                  completor: ProcPtr; timeout: LONGINT): CMErr;
  326. 'FB      CMErr = FN CMListen(hConn&,async,completor&,timeOut&)
  327. '-------------------------------------------------|----------------
  328. LOCAL: DIM selector,timeOut&,completor&,async,hConn&
  329. LOCAL FN CMListen(hConn&,async,completor&,timeOut&)
  330. selector = _CMListen
  331. `     LEA     ^selector,A0
  332. `     DC.W    CommToolboxDispatch
  333. `     EXT.L   D0
  334. END FN
  335. '-------------------------------------------------|----------------
  336. 'Page 61 CMMenu (hConn: ConnHandle; menuID: INTEGER;
  337. '                item:INTEGER): BOOLEAN;
  338. 'FB      bool = FN CMMenu(hConn&,menuID,itemID)
  339. '-------------------------------------------------|----------------
  340. LOCAL: DIM selector,itemID,menuID,hConn&
  341. LOCAL FN CMMenu(hConn&,menuID,itemID)
  342. selector = _CMMenu
  343. `     LEA     ^selector,A0
  344. `     DC.W    CommToolboxDispatch
  345. `     EXT.L   D0
  346. END FN
  347. '-------------------------------------------------|----------------
  348. 'Page 48 CMOpen (hConn: ConnHandle; async: BOOLEAN
  349. '                  completor: ProcPtr; timeout: LONGINT): CMErr;
  350. 'FB      CMErr = FN CMOpen(hConn&,async,completor&,timeOut&)
  351. '-------------------------------------------------|----------------
  352. LOCAL: DIM selector,timeOut&,completor&,async,hConn&
  353. LOCAL FN CMOpen(hConn&,async,completor&,timeOut&)
  354. selector = _CMOpen
  355. `     LEA     ^selector,A0
  356. `     DC.W    CommToolboxDispatch
  357. `     EXT.L   D0
  358. END FN
  359. '-------------------------------------------------|----------------
  360. 'Page 56 CMRead (hConn: ConnHandle; theBuffer: Ptr;
  361. '                  VAR toRead: LONGINT; theChannel: CMChannel;
  362. '                  async: BOOLEAN; completor: ProcPtr;
  363. '                  timeout: LONGINT; VAR flags: CMFlags): CMErr;
  364. 'FB      CMErr = FN CMRead(hConn&,buffer&,toRead&,theChannel&,
  365. '                  async,completor&,timeOut&,flags&)
  366. '-------------------------------------------------|----------------
  367. LOCAL: DIM selector,flags&,timeOut&,completor&,async,theChannel&
  368. DIM toRead&,buffer&,hConn&
  369. LOCAL FN CMRead(hConn&,buffer&,@toRead&,theChannel&,async,completor&,timeout&,@flags&)
  370. selector = _CMRead
  371. `     LEA     ^selector,A0
  372. `     DC.W    CommToolboxDispatch
  373. `     EXT.L   D0
  374. END FN
  375. '-------------------------------------------------|----------------
  376. 'Page 60 CMRemoveSearch (hConn: ConnHandle; refNum : LONGINT);
  377. 'FB      FN CMRemoveSearch(hConn&,refNum&)
  378. '-------------------------------------------------|----------------
  379. LOCAL: DIM selector,refNum&,hConn&
  380. LOCAL FN CMRemoveSearch(hConn&,refNum&)
  381. selector = _CMRemoveSearch
  382. `     LEA     ^selector,A0
  383. `     DC.W    CommToolboxDispatch
  384. END FN
  385. '-------------------------------------------------|----------------
  386. 'Page 50 CMReset (hConn: ConnHandle);
  387. 'FB      FN CMReset(hConn&)
  388. '-------------------------------------------------|----------------
  389. LOCAL: DIM selector
  390. LOCAL FN CMReset(hConn&)
  391. selector = _CMReset
  392. `     LEA     ^selector,A0
  393. `     DC.W    CommToolboxDispatch
  394. END FN
  395. '-------------------------------------------------|----------------
  396. 'Page 61 CMResume (hConn: ConnHandle; resume : BOOLEAN);
  397. 'FB      FN CMResume(hConn&,resumeBool)
  398. '-------------------------------------------------|----------------
  399. LOCAL: DIM selector,resumeBool,hConn&
  400. LOCAL FN CMResume(hConn&,resumeBool)
  401. selector = _CMResume
  402. `     LEA     ^selector,A0
  403. `     DC.W    CommToolboxDispatch
  404. END FN
  405. '-------------------------------------------------|----------------
  406. 'Page 47 CMSetConfig (hConn: ConnHandle; thePtr : Ptr): INTEGER;
  407. 'FB      theErr = FN CMSetConfig(hConn&,thePtr&)
  408. ' thePtr& points to a null terminated C string.
  409. ' t$ = "Baud 9600 dataBits 8 Parity None" + CHR$(0)
  410. ' thePtr& = @t$ + 1
  411. '-------------------------------------------------|----------------
  412. LOCAL: DIM selector,thePtr&,hConn&
  413. LOCAL FN CMSetConfig(hConn&,thePtr&)
  414. selector = _CMSetConfig
  415. `     LEA     ^selector,A0
  416. `     DC.W    CommToolboxDispatch
  417. `     EXT.L   D0
  418. END FN
  419. '-------------------------------------------------|----------------
  420. 'Page 64 CMSetRefCon (hConn: ConnHandle; refCon : LONGINT);
  421. 'FB      FN CMSetRefCon(hConn&,refCon&)
  422. '-------------------------------------------------|----------------
  423. LOCAL: DIM selector,refCon&,hConn&
  424. LOCAL FN CMSetRefCon(hConn&,refCon&)
  425. selector = _CMSetRefCon
  426. `     LEA     ^selector,A0
  427. `     DC.W    CommToolboxDispatch
  428. END FN
  429. '-------------------------------------------------|----------------
  430. 'Page 45 CMSetupCleanup (procID: INTEGER; theConfig: Ptr;
  431. '                      count: INTEGER; theDialog: DialogPtr&;
  432. '                      VAR magicCookie: LONGINT);
  433. 'FB      FN CMSetupCleanup(procID,theConfig&,count,theDialog&,magicCookie&)
  434. '-------------------------------------------------|----------------
  435. LOCAL: DIM selector,magicCookie&,theDialog&,count,theConfig&,procID
  436. DIM toRead&,buffer&,hConn&
  437. LOCAL FN CMSetupCleanup(procID,theConfig&,count,theDialog&,@magicCookie&)
  438. selector = _CMSetupCleanup
  439. `     LEA     ^selector,A0
  440. `     DC.W    CommToolboxDispatch
  441. END FN
  442. '-------------------------------------------------|----------------
  443. 'Page 44 CMSetupfilter (procID: INTEGER; theConfig: Ptr;
  444. '                      count: INTEGER; theDialog: DialogPtr&;
  445. '                      VAR theEvent: EventRecord; VAR theItem: INTEGER
  446. '                      VAR magicCookie: LONGINT): BOOLEAN;
  447. 'FB      Bool = FN CMSetupFilter(procID,theConfig&,count,theDialog&,
  448. '                       EventRecord&,theItem,magicCookie&)
  449. '-------------------------------------------------|----------------
  450. LOCAL: DIM selector,magicCookie&,theItem&,EventRecord&
  451. DIM theDialog&,count,theConfig&,procID
  452. LOCAL FN CMSetupFilter(procID,theConfig&,count,theDialog&,EventRecord&,@theItem&,@magicCookie&)
  453. selector = _CMSetupfilter
  454. `     LEA     ^selector,A0
  455. `     DC.W    CommToolboxDispatch
  456. `     EXT.L   D0
  457. END FN
  458. '-------------------------------------------------|----------------
  459. 'Page 45 CMSetupItem (procID: INTEGER; theConfig: Ptr;
  460. '                     count: INTEGER; theDialog: DialogPtr&;
  461. '                     VAR theItem: INTEGER;
  462. '                     VAR magicCookie: LONGINT);
  463. 'FB     FN CMSetupItem(procID,theConfig&,count,theDialog&,
  464. '                       theItem,magicCookie&)
  465. '-------------------------------------------------|----------------
  466. LOCAL: DIM selector,magicCookie&,theItem&
  467. DIM theDialog&,count,theConfig&,procID
  468. LOCAL FN CMSetupItem(procID,theConfig&,count,theDialog&,@theItem&,@magicCookie&)
  469. selector = _CMSetupItem
  470. `     LEA     ^selector,A0
  471. `     DC.W    CommToolboxDispatch
  472. END FN
  473. '-------------------------------------------------|----------------
  474. 'Page 46 CMSetupPostflight (procID: INTEGER);
  475. 'FB      FN CMSetupPostflight(procID)
  476. '-------------------------------------------------|----------------
  477. LOCAL: DIM selector
  478. LOCAL FN CMSetupPostflight(procID)
  479. selector = _CMSetupPostflight
  480. `     LEA     ^selector,A0
  481. `     DC.W    CommToolboxDispatch
  482. END FN
  483. '-------------------------------------------------|----------------
  484. 'Page 43 CMSetupPreflight (procID: INTEGER; VAR magicCookie): Handle;
  485. 'FB      hndl& = FN CMSetupPreflight(procID,magicCookie&)
  486. '-------------------------------------------------|----------------
  487. LOCAL: DIM selector,magicCookie&,procID
  488. LOCAL FN CMSetupPreflight(procID,@magicCookie&)
  489. selector = _CMSetupPreflight
  490. `     LEA     ^selector,A0
  491. `     DC.W    CommToolboxDispatch
  492. END FN
  493. '-------------------------------------------------|----------------
  494. 'Page 44 CMSetupSetup (procID: INTEGER; theConfig: Ptr;
  495. '                     count: INTEGER; theDialog: DialogPtr&;
  496. '                     VAR magicCookie: LONGINT);
  497. 'FB      FN CMSetupSetup(procID,theConfig&,count,theDialog&,
  498. '                        magicCookie&)
  499. '-------------------------------------------------|----------------
  500. LOCAL: DIM selector,magicCookie&
  501. DIM theDialog&,count,theConfig&,procID
  502. LOCAL FN CMSetupSetup(procID,theConfig&,count,theDialog&,@magicCookie&)
  503. selector = _CMSetupSetup
  504. `     LEA     ^selector,A0
  505. `     DC.W    CommToolboxDispatch
  506. END FN
  507. '-------------------------------------------------|----------------
  508. 'Page 65 CMSetUserData (hConn: ConnHandle; userData : LONGINT);
  509. 'FB      FN CMSetUserData(hConn&,userData&)
  510. '-------------------------------------------------|----------------
  511. LOCAL: DIM selector,userData&,hConn&
  512. LOCAL FN CMSetUserData(hConn&,userData&)
  513. selector = _CMSetUserData
  514. `     LEA     ^selector,A0
  515. `     DC.W    CommToolboxDispatch
  516. END FN
  517. '-------------------------------------------------|----------------
  518. 'Page 51 CMStatus (hConn: ConnHandle; VAR sizes: CMBufferSizes;
  519. '                  VAR flags: CMStatFlags): CMErr;
  520. 'FB      CMErr = FN CMStatus(hConn&,buffer&,flags&)
  521. '-------------------------------------------------|----------------
  522. LOCAL: DIM selector,flags&,buffer&,hConn&
  523. LOCAL FN CMStatus(hConn&,@buffer&,@flags&)
  524. selector = _CMStatus
  525. `     LEA     ^selector,A0
  526. `     DC.W    CommToolboxDispatch
  527. `     EXT.L   D0
  528. END FN
  529. '-------------------------------------------------|----------------
  530. 'Page 58 CMWrite (hConn: ConnHandle; theBuffer: Ptr;
  531. '                  VAR toRead: LONGINT; theChannel: CMChannel;
  532. '                  async: BOOLEAN; completor: ProcPtr;
  533. '                  timeout: LONGINT; flags: CMFlags): CMErr;
  534. 'FB      CMErr = FN CMWrite(hConn&,buffer&,toRead&,theChannel&,
  535. '                  async,completor&,timeOut&,flags&)
  536. '-------------------------------------------------|----------------
  537. LOCAL: DIM selector,flags&,timeOut&,completor&,async,theChannel&
  538. DIM toRead&,buffer&,hConn&
  539. LOCAL FN CMWrite(hConn&,buffer&,@toRead&,theChannel&,async,completor&,timeout&,flags&)
  540. selector = _CMWrite
  541. `     LEA     ^selector,A0
  542. `     DC.W    CommToolboxDispatch
  543. `     EXT.L   D0
  544. END FN
  545. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  546. '‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢                FILE TRANSFER MANAGER               ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  547. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  548. '-------------------------------------------------|----------------
  549. 'Page 150 FTAbort(hFT: FTHandle) : FTErr;
  550. 'FB       FTErr = FN FTAbort(FTHndl&)
  551. '-------------------------------------------------|----------------
  552. LOCAL:DIM selector
  553. LOCAL FN FTAbort(FTHndl&)
  554. selector = _FTAbort
  555. `     LEA     ^selector,A0
  556. `     DC.W    CommToolboxDispatch
  557. `     EXT.L   D0
  558. END FN
  559. '-------------------------------------------------|----------------
  560. 'Page 138 InitFT : FTErr;
  561. 'FB       FTErr = FN InitFT
  562. '-------------------------------------------------|----------------
  563. LOCAL FN InitFT
  564. selector = _InitFT
  565. `     LEA     ^selector,A0
  566. `     DC.W    CommToolboxDispatch
  567. `     EXT.L   D0
  568. END FN
  569. '-------------------------------------------------|----------------
  570. 'Page 151 FTActivate(hFT: FTHandle; activate : BOOLEAN)
  571. 'FB       FN FTActivate(FTHndl&,bool)
  572. '-------------------------------------------------|----------------
  573. LOCAL:DIM selector,bool,FTHndl&
  574. LOCAL FN FTActivate(FTHndl&,bool)
  575. selector = _FTActivate
  576. `     LEA     ^selector,A0
  577. `     DC.W    CommToolboxDispatch
  578. END FN
  579. '-------------------------------------------------|----------------
  580. 'Page 142 FTChoose(VAR hFT: FTHandle; where: Point;
  581. '                  idleProc: procPtr):INTEGER;
  582. 'FB       rslt = FN FTChoose(FTHndl&,thePoint&,procPtr&)
  583. '-------------------------------------------------|----------------
  584. LOCAL: DIM selector,procPtr&,pointX,pointY,FTHndl&
  585. LOCAL FN FTChoose(@FTHndl&,@thePoint&,procPtr&)
  586. `     MOVE.L  ^thePoint&,A0
  587. `     MOVE.W  (A0)+,^pointX
  588. `     MOVE.W  (A0),^pointY
  589. selector = _FTChoose
  590. `     LEA     ^selector,A0
  591. `     DC.W    CommToolboxDispatch
  592. `     EXT.L   D0
  593. END FN
  594. '-------------------------------------------------|----------------
  595. 'Page 141 FTDefault(VAR theConfig: Ptr; procID: INTEGER;
  596. '                  allocate: BOOLEAN);
  597. 'FB      FN FTDefault(config,procID,allocate)
  598. '-------------------------------------------------|----------------
  599. LOCAL: DIM selector,allocate,procID,configPtr&
  600. LOCAL FN FTDefault(@configPtr&,procID,allocate)
  601. selector = _FTDefault
  602. `     LEA     ^selector,A0
  603. `     DC.W    CommToolboxDispatch
  604. END FN
  605. '-------------------------------------------------|----------------
  606. 'Page 150 FTDispose (hFT: FTHandle);
  607. 'FB       FN FTDispose(FTHndl&)
  608. '-------------------------------------------------|----------------
  609. LOCAL:DIM selector
  610. LOCAL FN FTDispose(FTHndl&)
  611. selector = _FTDispose
  612. `     LEA     ^selector,A0
  613. `     DC.W    CommToolboxDispatch
  614. END FN
  615. '-------------------------------------------------|----------------
  616. 'Page 153 FTEnglishToIntl (hFT: FTHandle; inputPtr : Ptr;
  617. '                 VAR outputPtr: Ptr; language: INTEGER): OSErr;
  618. 'FB       OSErr = FN FTEnglishToIntl(FTHndl&,English$,
  619. '                 foreign$,language)
  620. '-------------------------------------------------|----------------
  621. LOCAL: DIM selector,language,outputPtr&,inputPtr&,FTHndl&
  622. LOCAL FN FTEnglishToIntl(FTHndl&,@inputPtr&,@outputPtr&,language)
  623. selector = _FTEnglishToIntl
  624. `     LEA     ^selector,A0
  625. `     DC.W    CommToolboxDispatch
  626. `     EXT.L   D0
  627. END FN
  628. '-------------------------------------------------|----------------
  629. 'Page 152 FTEvent (hFT: FTHandle; theEvent : EventRecord);
  630. 'FB       FN FTEvent(FTHndl&,gWhat)
  631. '-------------------------------------------------|----------------
  632. LOCAL: DIM selector,eventRec&,FTHndl&
  633. LOCAL FN FTEvent(FTHndl&,@eventRec&)
  634. selector = _FTEvent
  635. `     LEA     ^selector,A0
  636. `     DC.W    CommToolboxDispatch
  637. END FN
  638. '-------------------------------------------------|----------------
  639. 'Page 150 FTExec(hFT: FTHandle);
  640. 'FB       FN FTExec(FTHndl&)
  641. '-------------------------------------------------|----------------
  642. LOCAL:DIM selector
  643. LOCAL FN FTExec(FTHndl&)
  644. selector = _FTExec
  645. `     LEA     ^selector,A0
  646. `     DC.W    CommToolboxDispatch
  647. END FN
  648. '-------------------------------------------------|----------------
  649. 'Page 148 FTGetConfig (hFT: FTHandle): Ptr;
  650. 'FB       ptr& = FN FTGetConfig(FTHndl&)
  651. '-------------------------------------------------|----------------
  652. LOCAL: DIM selector
  653. LOCAL FN FTGetConfig(FTHndl&)
  654. selector = _FTGetConfig
  655. `     LEA     ^selector,A0
  656. `     DC.W    CommToolboxDispatch
  657. END FN
  658. '-------------------------------------------------|----------------
  659. 'Page 155 FTGetFTVersion: INTEGER ;
  660. 'FB       version = FN FTGetFTVersion
  661. '-------------------------------------------------|----------------
  662. LOCAL FN FTGetFTVersion
  663. selector = _FTGetFTVersion
  664. `     LEA     ^selector,A0
  665. `     DC.W    CommToolboxDispatch
  666. `     EXT.L   D0
  667. END FN
  668. '-------------------------------------------------|----------------
  669. 'Page 154 FTGetToolName (procID: INTEGER;VAR name: Str255);
  670. 'FB       FN FTGetToolName(procID,ToolFileName$)
  671. '-------------------------------------------------|----------------
  672. LOCAL: DIM selector,ptr&,procID
  673. LOCAL FN FTGetToolName(procID,@ptr&)
  674. selector = _FTGetToolName
  675. `     LEA     ^selector,A0
  676. `     DC.W    CommToolboxDispatch
  677. END FN
  678. '-------------------------------------------------|----------------
  679. 'Page 139 FTGetProcID (name: Str255) : Integer;
  680. 'FB       ProcID = FN FTGetProcID(ToolFileName$)
  681. '-------------------------------------------------|----------------
  682. LOCAL: DIM selector
  683. LOCAL FN FTGetProcID(@ptr&)
  684. selector = _FTGetProcID
  685. `     LEA     ^selector,A0
  686. `     DC.W    CommToolboxDispatch
  687. `     EXT.L   D0
  688. END FN
  689. '-------------------------------------------------|----------------
  690. 'Page 154 FTGetRefCon (hFT: FTHandle): LONGINT;
  691. 'FB       refCon& = FN FTGetRefCon(FTHndl&)
  692. '-------------------------------------------------|----------------
  693. LOCAL:DIM selector
  694. LOCAL FN FTGetRefCon(FTHndl&)
  695. selector = _FTGetRefCon
  696. `     LEA     ^selector,A0
  697. `     DC.W    CommToolboxDispatch
  698. END FN
  699. '-------------------------------------------------|----------------
  700. 'Page 155 FTGetUserData (hFT: FTHandle): LONGINT;
  701. 'FB       UserData& = FN FTGetUserData(FTHndl&)
  702. '-------------------------------------------------|----------------
  703. LOCAL:DIM selector
  704. LOCAL FN FTGetUserData(FTHndl&)
  705. selector = _FTGetUserData
  706. `     LEA     ^selector,A0
  707. `     DC.W    CommToolboxDispatch
  708. END FN
  709. '-------------------------------------------------|----------------
  710. 'Page 155 FTGetVersion (hFT: FTHandle): Handle;
  711. 'FB       vHndl& = FN FTGetVersion(FTHndl&)
  712. '-------------------------------------------------|----------------
  713. LOCAL:DIM selector
  714. LOCAL FN FTGetVersion(FTHndl&)
  715. selector = _FTGetVersion
  716. `     LEA     ^selector,A0
  717. `     DC.W    CommToolboxDispatch
  718. END FN
  719. '-------------------------------------------------|----------------
  720. 'Page 153 FTIntlToEnglish (hFT: FTHandle; inputPtr : Ptr;
  721. '                 VAR outputPtr: Ptr; language: INTEGER): OSErr;
  722. 'FB      OSErr = FN FTIntlToEnglish(FTHndl&,foreign$,
  723. '                 English$,language)
  724. '-------------------------------------------------|----------------
  725. LOCAL: DIM selector,language,outputPtr&,inputPtr&,FTHndl&
  726. LOCAL FN FTIntlToEnglish(FTHndl&,@inputPtr&,@outputPtr&,language)
  727. selector = _FTIntlToEnglish
  728. `     LEA     ^selector,A0
  729. `     DC.W    CommToolboxDispatch
  730. `     EXT.L   D0
  731. END FN
  732. '-------------------------------------------------|----------------
  733. 'Page 152 FTMenu (hFT: FTHandle; menuID: INTEGER;
  734. '                item:INTEGER): BOOLEAN;
  735. 'FB       bool = FN FTMenu(FTHndl&,menuID,itemID)
  736. '-------------------------------------------------|----------------
  737. LOCAL: DIM selector,itemID,menuID,FTHndl&
  738. LOCAL FN FTMenu(FTHndl&,menuID,itemID)
  739. selector = _FTMenu
  740. `     LEA     ^selector,A0
  741. `     DC.W    CommToolboxDispatch
  742. `     EXT.L   D0
  743. END FN
  744. '-------------------------------------------------|----------------
  745. 'Page 139 FTNew (prodID: INTEGER; flags: FTFlags;
  746. '                sendProc: ProcPtr; recvProc: ProcPtr;
  747. '                readProc: procPtr; writeProc: ProcPtr;
  748. '                environsProc: procPtr; owner: Windowptr;
  749. '                refCon: LONGINT; userData: LONGINT): FTHandle;
  750. 'FB       FTHndl& = FN FTNew(procID,FTFlags&,sendProc&,
  751. '                recvProc&,readProc&,writeProc&,environsProc&,
  752. '                owner&,refCon&,userData&)
  753. '-------------------------------------------------|----------------
  754. LOCAL: DIM selector,userData&,refCon&,owner&,environsProc&
  755. DIM writeProc&,readProc&,recvProc&,sendProc&,FTFlags&,procID
  756. LOCAL FN FTNew(procID,FTFlags&,sendProc&,recvProc&,readProc&,writeProc&,environsProc&,owner&,refCon&,userData&)
  757. selector = _FTNew
  758. `     LEA     ^selector,A0
  759. `     DC.W    CommToolboxDispatch
  760. END FN
  761. '-------------------------------------------------|----------------
  762. 'Page 151 FTResume (hFT: FTHandle; resume : BOOLEAN);
  763. 'FB       FN FTResume(FTHndl&,resumeBool)
  764. '-------------------------------------------------|----------------
  765. LOCAL: DIM selector,resumeBool,FTHndl&
  766. LOCAL FN FTResume(FTHndl&,resumeBool)
  767. selector = _FTResume
  768. `     LEA     ^selector,A0
  769. `     DC.W    CommToolboxDispatch
  770. END FN
  771. '-------------------------------------------------|----------------
  772. 'Page 148 FTSetConfig (hFT: FTHandle; thePtr : Ptr): INTEGER;
  773. 'FB       theErr = FN FTSetConfig(FTHndl&,thePtr&)
  774. ' thePtr& points to a null terminated C string.
  775. ' t$ = "InterCharDelay 0 InterLineDelay 0 WordWrap False" + CHR$(0)
  776. ' thePtr& = @t$ + 1
  777. '-------------------------------------------------|----------------
  778. LOCAL: DIM selector,thePtr&,FTHndl&
  779. LOCAL FN FTSetConfig(FTHndl&,thePtr&)
  780. selector = _FTSetConfig
  781. `     LEA     ^selector,A0
  782. `     DC.W    CommToolboxDispatch
  783. `     EXT.L   D0
  784. END FN
  785. '-------------------------------------------------|----------------
  786. 'Page 154 FTSetRefCon (hFT: FTHandle; refCon : LONGINT);
  787. 'FB       FN FTSetRefCon(FTHndl&,refCon&)
  788. '-------------------------------------------------|----------------
  789. LOCAL: DIM selector,refCon&,FTHndl&
  790. LOCAL FN FTSetRefCon(FTHndl&,refCon&)
  791. selector = _FTSetRefCon
  792. `     LEA     ^selector,A0
  793. `     DC.W    CommToolboxDispatch
  794. END FN
  795. '-------------------------------------------------|----------------
  796. 'Page 146 FTSetupCleanup (procID: INTEGER; theConfig: Ptr;
  797. '                         count: INTEGER; theDialog: DialogPtr;
  798. '                         VAR magicCookie: LONGINT);
  799. 'FB       FN FTSetupCleanup(procID,theConfig&,count,theDialog&,
  800. '                         magicCookie&)
  801. '-------------------------------------------------|----------------
  802. LOCAL: DIM selector,magicCookie&,theDialog&,count,theConfig&,procID
  803. LOCAL FN FTSetupCleanup(procID,theConfig&,count,theDialog&,@magicCookie&)
  804. selector = _FTSetupCleanup
  805. `     LEA     ^selector,A0
  806. `     DC.W    CommToolboxDispatch
  807. END FN
  808. '-------------------------------------------------|----------------
  809. 'Page 146 FTSetupItem (procID: INTEGER; theConfig: Ptr;
  810. '                     count: INTEGER; theDialog: DialogPtr&;
  811. '                     VAR theItem: INTEGER;
  812. '                     VAR magicCookie: LONGINT);
  813. 'FB     FN FTSetupItem(procID,theConfig&,count,theDialog&,
  814. '                       theItem,magicCookie&)
  815. '-------------------------------------------------|----------------
  816. LOCAL: DIM selector,magicCookie&,theItem&
  817. DIM theDialog&,count,theConfig&,procID
  818. LOCAL FN FTSetupItem(procID,theConfig&,count,theDialog&,@theItem&,@magicCookie&)
  819. selector = _FTSetupItem
  820. `     LEA     ^selector,A0
  821. `     DC.W    CommToolboxDispatch
  822. END FN
  823. '-------------------------------------------------|----------------
  824. 'Page 147 FTSetupPostflight (procID: INTEGER);
  825. 'FB       FN FTSetupPostflight(procID)
  826. '-------------------------------------------------|----------------
  827. LOCAL: DIM selector
  828. LOCAL FN FTSetupPostflight(procID)
  829. selector = _FTSetupPostflight
  830. `     LEA     ^selector,A0
  831. `     DC.W    CommToolboxDispatch
  832. END FN
  833. '-------------------------------------------------|----------------
  834. 'Page 144 FTSetupPreflight (procID: INTEGER; VAR magicCookie): Handle;
  835. 'FB       hndl& = FN FTSetupPreflight(procID,magicCookie&)
  836. '-------------------------------------------------|----------------
  837. LOCAL: DIM selector,magicCookie&,procID
  838. LOCAL FN FTSetupPreflight(procID,@magicCookie&)
  839. selector = _FTSetupPreflight
  840. `     LEA     ^selector,A0
  841. `     DC.W    CommToolboxDispatch
  842. END FN
  843. '-------------------------------------------------|----------------
  844. 'Page 145 FTSetupSetup (procID: INTEGER; theConfig: Ptr;
  845. '                     count: INTEGER; theDialog: DialogPtr&;
  846. '                     VAR magicCookie: LONGINT);
  847. 'FB       FN FTSetupSetup(procID,theConfig&,count,theDialog&,
  848. '                        magicCookie&)
  849. '-------------------------------------------------|----------------
  850. LOCAL: DIM selector,magicCookie&
  851. DIM theDialog&,count,theConfig&,procID
  852. LOCAL FN FTSetupSetup(procID,theConfig&,count,theDialog&,@magicCookie&)
  853. selector = _FTSetupSetup
  854. `     LEA     ^selector,A0
  855. `     DC.W    CommToolboxDispatch
  856. END FN
  857. '-------------------------------------------------|----------------
  858. 'Page 155 FTSetUserData (hFT: FTHandle; userData : LONGINT);
  859. 'FB      FN FTSetUserData(FTHndl&,userData&)
  860. '-------------------------------------------------|----------------
  861. LOCAL: DIM selector,userData&,FTHndl&
  862. LOCAL FN FTSetUserData(FTHndl&,userData&)
  863. selector = _FTSetUserData
  864. `     LEA     ^selector,A0
  865. `     DC.W    CommToolboxDispatch
  866. END FN
  867. '-------------------------------------------------|----------------
  868. 'Page 149 FTStart (hFT: FTHandle; direction: FTDirection;
  869. '                  fileInfo: SFReply): FTErr;
  870. 'FB      FN FTStart(FTHndl&,direction,fileInfo)
  871. ' Note: "fileInfo" is a Standard Files reply record
  872. '-------------------------------------------------|----------------
  873. LOCAL: DIM selector,fileInfo&,direction,FTHndl&
  874. LOCAL FN FTStart(FTHndl&,direction,@fileInfo&)
  875. selector = _FTStart
  876. `     LEA     ^selector,A0
  877. `     DC.W    CommToolboxDispatch
  878. `     EXT.L   D0
  879. END FN
  880. '-------------------------------------------------|----------------
  881. 'Page 141 FTValidate(hFT: FTHandle) : BOOLEAN;
  882. 'FB       bool = FN FTValidate(FTHndl&)
  883. '-------------------------------------------------|----------------
  884. LOCAL: DIM selector,FTHndl&
  885. LOCAL FN FTValidate(FTHndl&)
  886. selector = _FTValidate
  887. `     LEA     ^selector,A0
  888. `     DC.W    CommToolboxDispatch
  889. `     EXT.L   D0
  890. END FN
  891. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  892. '‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢               TERMINAL TRANSFER MANAGER            ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  893. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  894. '-------------------------------------------------|----------------
  895. 'Page  88 InitTM : TMErr;
  896. 'FB       TMErr = FN InitTM
  897. '-------------------------------------------------|----------------
  898. LOCAL FN InitTM
  899. selector = _InitTM
  900. `     LEA     ^selector,A0
  901. `     DC.W    CommToolboxDispatch
  902. `     EXT.L   D0
  903. END FN
  904. '-------------------------------------------------|----------------
  905. 'Page 105 TMActivate(hTerm: TermHandle; activate : BOOLEAN)
  906. 'FB       FN TMActivate(TermHndl&,bool)
  907. '-------------------------------------------------|----------------
  908. DIM selector,bool,TermHndl&
  909. LOCAL FN TMActivate(TermHndl&,bool)
  910. selector = _TMActivate
  911. `     LEA     ^selector,A0
  912. `     DC.W    CommToolboxDispatch
  913. END FN
  914. '-------------------------------------------------|----------------
  915. 'Page 102 TMAddSearch (hTerm: TermHandle; theString: Str255;
  916. '               where: Rect; searchType: TMSearchTypes
  917. '               callBack: ProcPtr): INTEGER;
  918. 'FB       searchRefNum = FN TMAddSearch(TermHndl&,searchTxt$,
  919. '               t,callBackProc&)
  920. '-------------------------------------------------|----------------
  921. LOCAL: DIM selector,callBackProc&,rect&,txtPtr&,TermHndl&
  922. LOCAL FN TMAddSearch(TermHndl&,@txtPtr&,@rect&,callBackProc&)
  923. selector = _TMAddSearch
  924. `     LEA     ^selector,A0
  925. `     DC.W    CommToolboxDispatch
  926. `     EXT.L   D0
  927. END FN
  928. '-------------------------------------------------|----------------
  929. 'Page  92 TMChoose(VAR hTerm: TermHandle; where: Point;
  930. '                  idleProc: procPtr):INTEGER;
  931. 'FB       rslt = FN TMChoose(TermHndl&,thePoint&,procPtr&)
  932. '-------------------------------------------------|----------------
  933. LOCAL: DIM selector,procPtr&,pointX,pointY,TermHndl&
  934. LOCAL FN TMChoose(@TermHndl&,@thePoint&,procPtr&)
  935. `     MOVE.L  ^thePoint&,A0
  936. `     MOVE.W  (A0)+,^pointX
  937. `     MOVE.W  (A0),^pointY
  938. selector = _TMChoose
  939. `     LEA     ^selector,A0
  940. `     DC.W    CommToolboxDispatch
  941. `     EXT.L   D0
  942. END FN
  943. '-------------------------------------------------|----------------
  944. 'Page 100 TMClear(hTerm: TermHandle);
  945. 'FB       FN TMClear(TermHndl&)
  946. '-------------------------------------------------|----------------
  947. DIM selector
  948. LOCAL FN TMClear(TermHndl&)
  949. selector = _TMClear
  950. `     LEA     ^selector,A0
  951. `     DC.W    CommToolboxDispatch
  952. END FN
  953. '-------------------------------------------------|----------------
  954. 'Page 103 TMClearSearch (hTerm: TermHandle);
  955. 'FB       FN TMClearSearch(TermHndl&)
  956. '-------------------------------------------------|----------------
  957. LOCAL: DIM selector
  958. LOCAL FN TMClearSearch(TermHndl&)
  959. selector = _TMClearSearch
  960. `     LEA     ^selector,A0
  961. `     DC.W    CommToolboxDispatch
  962. END FN
  963. '-------------------------------------------------|----------------
  964. 'Page 106 TMClick (hTerm: TermHandle; theEvent : EventRecord);
  965. 'FB       FN TMClick(TermHndl&,gWhat)
  966. '-------------------------------------------------|----------------
  967. LOCAL: DIM selector,eventRec&,TermHndl&
  968. LOCAL FN TMClick(TermHndl&,@eventRec&)
  969. selector = _TMClick
  970. `     LEA     ^selector,A0
  971. `     DC.W    CommToolboxDispatch
  972. END FN
  973. '-------------------------------------------------|----------------
  974. 'Page 112 TMCountTermKeys (hTerm: TermHandle);INTEGER
  975. 'FB       numOfSpecialkeys = FN TMCountTermKeys(TermHndl&)
  976. '-------------------------------------------------|----------------
  977. LOCAL: DIM selector
  978. LOCAL FN TMCountTermKeys(TermHndl&)
  979. selector = _TMCountTermKeys
  980. `     LEA     ^selector,A0
  981. `     DC.W    CommToolboxDispatch
  982. `     EXT.L   D0
  983. END FN
  984. '-------------------------------------------------|----------------
  985. 'Page  91 TMDefault(VAR theConfig: Ptr; procID: INTEGER;
  986. '                  allocate: BOOLEAN);
  987. 'FB       FN TMDefault(config,procID,allocate)
  988. '-------------------------------------------------|----------------
  989. LOCAL: DIM selector,allocate,procID,configPtr&
  990. LOCAL FN TMDefault(@configPtr&,procID,allocate)
  991. selector = _TMDefault
  992. `     LEA     ^selector,A0
  993. `     DC.W    CommToolboxDispatch
  994. END FN
  995. '-------------------------------------------------|----------------
  996. 'Page 101 TMDispose (hTerm: TermHandle);
  997. 'FB       FN TMDispose(TermHndl&)
  998. '-------------------------------------------------|----------------
  999. LOCAL:DIM selector
  1000. LOCAL FN TMDispose(TermHndl&)
  1001. selector = _TMDispose
  1002. `     LEA     ^selector,A0
  1003. `     DC.W    CommToolboxDispatch
  1004. END FN
  1005. '-------------------------------------------------|----------------
  1006. 'Page 111 TMDoTermKey (hTerm: TermHandle; theKey: Str255):BOOLEAN;
  1007. 'FB       understood = FN TMDoTermKey(TermHndl&,thekey$)
  1008. '-------------------------------------------------|----------------
  1009. LOCAL:DIM selector,keyPtr&,TermHndl&
  1010. LOCAL FN TMDoTermKey(TermHndl&,@keyPtr&)
  1011. selector = _TMDoTermKey
  1012. `     LEA     ^selector,A0
  1013. `     DC.W    CommToolboxDispatch
  1014. `     EXT.L   D0
  1015. END FN
  1016. '-------------------------------------------------|----------------
  1017. 'Page 108 TMEnglishToIntl (hTerm: TermHandle; inputPtr : Ptr;
  1018. '                 VAR outputPtr: Ptr; language: INTEGER): OSErr;
  1019. 'FB       OSErr = FN TMEnglishToIntl(TermHndl&,English$,
  1020. '                 foreign$,language)
  1021. '-------------------------------------------------|----------------
  1022. LOCAL: DIM selector,language,outputPtr&,inputPtr&,TermHndl&
  1023. LOCAL FN TMEnglishToIntl(TermHndl&,@inputPtr&,@outputPtr&,language)
  1024. selector = _TMEnglishToIntl
  1025. `     LEA     ^selector,A0
  1026. `     DC.W    CommToolboxDispatch
  1027. `     EXT.L   D0
  1028. END FN
  1029. '-------------------------------------------------|----------------
  1030. 'Page 107 TMEvent (hTerm: TermHandle; theEvent : EventRecord);
  1031. 'FB       FN TMEvent(TermHndl&,gWhat)
  1032. '-------------------------------------------------|----------------
  1033. LOCAL: DIM selector,eventRec&,TermHndl&
  1034. LOCAL FN TMEvent(TermHndl&,@eventRec&)
  1035. selector = _TMEvent
  1036. `     LEA     ^selector,A0
  1037. `     DC.W    CommToolboxDispatch
  1038. END FN
  1039. '-------------------------------------------------|----------------
  1040. 'Page  98 TMGetConfig (hTerm: TermHandle): Ptr;
  1041. 'FB       ptr& = FN TMGetConfig(TermHndl&)
  1042. '-------------------------------------------------|----------------
  1043. LOCAL: DIM selector
  1044. LOCAL FN TMGetConfig(TermHndl&)
  1045. selector = _TMGetConfig
  1046. `     LEA     ^selector,A0
  1047. `     DC.W    CommToolboxDispatch
  1048. END FN
  1049. '-------------------------------------------------|----------------
  1050. 'Page 111 TMGetCursor(hTerm: TermHandle; cursType : TMCursorTypes)
  1051. 'FB       point& = FN TMGetCursor(TermHndl&,cursType)
  1052. '-------------------------------------------------|----------------
  1053. DIM selector,cursType,TermHndl&
  1054. LOCAL FN TMGetCursor(TermHndl&,cursType)
  1055. selector = _TMGetCursor
  1056. `     LEA     ^selector,A0
  1057. `     DC.W    CommToolboxDispatch
  1058. END FN
  1059. '-------------------------------------------------|----------------
  1060. 'Page 112 TMGetIndTermKey (hTerm: TermHandle; id : INTEGER
  1061. '               VAR theKey: Str255);
  1062. 'FB       FN TMGetIndTermKey(TermHndl&,id,theKey$)
  1063. '-------------------------------------------------|----------------
  1064. LOCAL: DIM selector,keyPtr&,ID,TermHndl&
  1065. LOCAL FN TMGetIndTermKey(TermHndl&,ID,@keyPtr&)
  1066. selector = _TMGetIndTermKey
  1067. `     LEA     ^selector,A0
  1068. `     DC.W    CommToolboxDispatch
  1069. END FN
  1070. '-------------------------------------------------|----------------
  1071. 'Page 100 TMGetLine (hTerm: TermHandle; lineNo : INTEGER
  1072. '               VAR theTermData: TermDataBlock);
  1073. 'FB       FN TMGetLine(TermHndl&,lineNo,theTermData)
  1074. '-------------------------------------------------|----------------
  1075. LOCAL: DIM selector,theTermDataPtr&,lineNo,TermHndl&
  1076. LOCAL FN TMGetLine(TermHndl&,lineNo,@theTermDataPtr&)
  1077. selector = _TMGetLine
  1078. `     LEA     ^selector,A0
  1079. `     DC.W    CommToolboxDispatch
  1080. END FN
  1081. '-------------------------------------------------|----------------
  1082. 'Page 88  TMGetProcID (name: Str255) : Integer;
  1083. 'FB       ProcID = FN TMGetProcID(TermToolName$)
  1084. '-------------------------------------------------|----------------
  1085. LOCAL: DIM selector
  1086. LOCAL FN TMGetProcID(@ptr&)
  1087. selector = _TMGetProcID
  1088. `     LEA     ^selector,A0
  1089. `     DC.W    CommToolboxDispatch
  1090. `     EXT.L   D0
  1091. END FN
  1092. '-------------------------------------------------|----------------
  1093. 'Page 109 TMGetRefCon (hTerm: TermHandle): LONGINT;
  1094. 'FB       refCon& = FN TMGetRefCon(TermHndl&)
  1095. '-------------------------------------------------|----------------
  1096. LOCAL:DIM selector
  1097. LOCAL FN TMGetRefCon(TermHndl&)
  1098. selector = _TMGetRefCon
  1099. `     LEA     ^selector,A0
  1100. `     DC.W    CommToolboxDispatch
  1101. END FN
  1102. '-------------------------------------------------|----------------
  1103. 'Page 104 TMGetSelect (hTerm: TermHandle; theData: Handle;
  1104. '                  VAR theType: Restype): LONGINT;
  1105. '         hndl&     = FN NEWHANDLE(0)
  1106. 'FB       dataSize& = FN TMGetSelect(TermHndl&,hndl&,resTp&)
  1107. '-------------------------------------------------|----------------
  1108. LOCAL:DIM selector,resTpPtr&,hndl&,TermHndl&
  1109. LOCAL FN TMGetSelect(TermHndl&,hndl&,@resTpPtr&)
  1110. selector = _TMGetSelect
  1111. `     LEA     ^selector,A0
  1112. `     DC.W    CommToolboxDispatch
  1113. END FN
  1114. '-------------------------------------------------|----------------
  1115. 'Page 112 TMGetTermEnvirons (hTerm: TermHandle ; VAR theEnvirons:
  1116. '            TermEnvironRec): TMErr;
  1117. '         See pg 112 for environs record
  1118. 'FB       TMErr = FN TMGetTermEnvirons(TermHndl&,theEnvirons)
  1119. '-------------------------------------------------|----------------
  1120. LOCAL:DIM selector,theEnvironsPtr&,TermHndl&
  1121. LOCAL FN TMGetTermEnvirons(TermHndl&,@theEnvironsPtr&)
  1122. selector = _TMGetTermEnvirons
  1123. `     LEA     ^selector,A0
  1124. `     DC.W    CommToolboxDispatch
  1125. `     EXT.L   D0
  1126. END FN
  1127. '-------------------------------------------------|----------------
  1128. 'Page 109 TMGetToolName (procID: INTEGER;VAR name: Str255);
  1129. 'FB       FN TMGetToolName(procID,TermToolName$)
  1130. '-------------------------------------------------|----------------
  1131. LOCAL: DIM selector,ptr&,procID
  1132. LOCAL FN TMGetToolName(procID,@ptr&)
  1133. selector = _TMGetToolName
  1134. `     LEA     ^selector,A0
  1135. `     DC.W    CommToolboxDispatch
  1136. END FN
  1137. '-------------------------------------------------|----------------
  1138. 'Page 110 TMGetTMVersion: INTEGER ;
  1139. 'FB       version = FN TMGetTMVersion
  1140. '-------------------------------------------------|----------------
  1141. LOCAL FN TMGetTMVersion
  1142. selector = _TMGetTMVersion
  1143. `     LEA     ^selector,A0
  1144. `     DC.W    CommToolboxDispatch
  1145. `     EXT.L   D0
  1146. END FN
  1147. '-------------------------------------------------|----------------
  1148. 'Page 110 TMGetUserData (hTerm: TermHandle): LONGINT;
  1149. 'FB       UserData& = FN TMGetUserData(TermHndl&)
  1150. '-------------------------------------------------|----------------
  1151. LOCAL:DIM selector
  1152. LOCAL FN TMGetUserData(TermHndl&)
  1153. selector = _TMGetUserData
  1154. `     LEA     ^selector,A0
  1155. `     DC.W    CommToolboxDispatch
  1156. END FN
  1157. '-------------------------------------------------|----------------
  1158. 'Page 110 TMGetVersion (hTerm: TermHandle): Handle;
  1159. 'FB       vHndl& = FN TMGetVersion(TermHndl&)
  1160. '-------------------------------------------------|----------------
  1161. LOCAL:DIM selector
  1162. LOCAL FN TMGetVersion(TermHndl&)
  1163. selector = _TMGetVersion
  1164. `     LEA     ^selector,A0
  1165. `     DC.W    CommToolboxDispatch
  1166. END FN
  1167. '-------------------------------------------------|----------------
  1168. 'Page  99 TMIdle (hTerm: TermHandle);
  1169. 'FB       FN TMIdle(TermHndl&)
  1170. '-------------------------------------------------|----------------
  1171. LOCAL:DIM selector
  1172. LOCAL FN TMIdle(TermHndl&)
  1173. selector = _TMIdle
  1174. `     LEA     ^selector,A0
  1175. `     DC.W    CommToolboxDispatch
  1176. END FN
  1177. '-------------------------------------------------|----------------
  1178. 'Page 108 TMIntlToEnglish (hTerm: TermHandle; inputPtr : Ptr;
  1179. '                 VAR outputPtr: Ptr; language: INTEGER): OSErr;
  1180. 'FB      OSErr = FN TMIntlToEnglish(TermHndl&,foreign$,
  1181. '                 English$,language)
  1182. '-------------------------------------------------|----------------
  1183. LOCAL: DIM selector,language,outputPtr&,inputPtr&,TermHndl&
  1184. LOCAL FN TMIntlToEnglish(TermHndl&,@inputPtr&,@outputPtr&,language)
  1185. selector = _TMIntlToEnglish
  1186. `     LEA     ^selector,A0
  1187. `     DC.W    CommToolboxDispatch
  1188. `     EXT.L   D0
  1189. END FN
  1190. '-------------------------------------------------|----------------
  1191. 'Page 106 TMKey (hTerm: TermHandle; theEvent : EventRecord);
  1192. 'FB       FN TMKey(TermHndl&,gWhat)
  1193. '-------------------------------------------------|----------------
  1194. LOCAL: DIM selector,eventRec&,TermHndl&
  1195. LOCAL FN TMKey(TermHndl&,@eventRec&)
  1196. selector = _TMKey
  1197. `     LEA     ^selector,A0
  1198. `     DC.W    CommToolboxDispatch
  1199. END FN
  1200. '-------------------------------------------------|----------------
  1201. 'Page 105 TMMenu (hTerm: TermHandle; menuID: INTEGER;
  1202. '                item:INTEGER): BOOLEAN;
  1203. 'FB       bool = FN TMMenu(TermHndl&,menuID,itemID)
  1204. '-------------------------------------------------|----------------
  1205. LOCAL: DIM selector,itemID,menuID,TermHndl&
  1206. LOCAL FN TMMenu(TermHndl&,menuID,itemID)
  1207. selector = _TMMenu
  1208. `     LEA     ^selector,A0
  1209. `     DC.W    CommToolboxDispatch
  1210. `     EXT.L   D0
  1211. END FN
  1212. '-------------------------------------------------|----------------
  1213. 'Page  89 TMNew (termRect: Rect; viewRect: Rect;
  1214. '                flags: TMFlags; prodID: INTEGER; owner: WindowPtr
  1215. '                sendProc: ProcPtr; cacheProc: ProcPtr;
  1216. '                breakProc: procPtr; clikLoop: ProcPtr;
  1217. '                environsProc: procPtr;
  1218. '                refCon: LONGINT; userData: LONGINT): TermHandle;
  1219. 'FB  TermHndl& = FN TMNew(termRect,termViewRect,TMflags&
  1220. '                procID,owner&,sendProc&,cacheProc&,breakProc&,
  1221. '                clickLoop&,environsProc&,refCon&,userData&)
  1222. '-------------------------------------------------|----------------
  1223. LOCAL: DIM selector,userData&,refCon&,environsProc&,clickLoop&
  1224. DIM breakProc&,cacheProc&,sendProc&,owner&,procID,TMFlags&
  1225. DIM termViewrectPtr&,termRectPtr&
  1226. LOCAL FN TMNew(@termRectPtr&,@termViewrectPtr&,TMFlags&,procID,owner&,sendProc&,cacheProc&,breakProc&,clickLoop&,environsProc&,refCon&,userData&)
  1227. selector = _TMNew
  1228. `     LEA     ^selector,A0
  1229. `     DC.W    CommToolboxDispatch
  1230. END FN
  1231. '-------------------------------------------------|----------------
  1232. 'Page 99  TMPaint (hTerm: TermHandle; theTermData: TermDataBlock;
  1233. '               theRect: Rect);
  1234. 'FB       FN TMPaint(TermHndl&,theTermData,t)
  1235. '-------------------------------------------------|----------------
  1236. LOCAL: DIM selector,rectPtr&,theTermDataPtr&,TermHndl&
  1237. LOCAL FN TMPaint(TermHndl&,@theTermDataPtr&,@rectPtr&)
  1238. selector = _TMPaint
  1239. `     LEA     ^selector,A0
  1240. `     DC.W    CommToolboxDispatch
  1241. END FN
  1242. '-------------------------------------------------|----------------
  1243. 'Page 103 TMRemoveSearch (hTerm: TermHandle; refNum : LONGINT);
  1244. 'FB      FN TMRemoveSearch(TermHndl&,refNum&)
  1245. '-------------------------------------------------|----------------
  1246. LOCAL: DIM selector,refNum&,TermHndl&
  1247. LOCAL FN TMRemoveSearch(TermHndl&,refNum&)
  1248. selector = _TMRemoveSearch
  1249. `     LEA     ^selector,A0
  1250. `     DC.W    CommToolboxDispatch
  1251. END FN
  1252. '-------------------------------------------------|----------------
  1253. 'Page 101 TMReset (hTerm: TermHandle);
  1254. 'FB       FN TMReset(TermHndl&)
  1255. '-------------------------------------------------|----------------
  1256. LOCAL: DIM selector
  1257. LOCAL FN TMReset(TermHndl&)
  1258. selector = _TMReset
  1259. `     LEA     ^selector,A0
  1260. `     DC.W    CommToolboxDispatch
  1261. END FN
  1262. '-------------------------------------------------|----------------
  1263. 'Page 101 TMResize (hTerm: TermHandle;theRect: Rect);
  1264. 'FB       FN TMResize(TermHndl&,t)
  1265. '-------------------------------------------------|----------------
  1266. LOCAL: DIM selector,rectPtr&,TermHndl&
  1267. LOCAL FN TMResize(TermHndl&,@rectPtr&)
  1268. selector = _TMResize
  1269. `     LEA     ^selector,A0
  1270. `     DC.W    CommToolboxDispatch
  1271. END FN
  1272. '-------------------------------------------------|----------------
  1273. 'Page 105 TMResume (hTerm: TermHandle; resume : BOOLEAN);
  1274. 'FB       FN TMResume(TermHndl&,resumeBool)
  1275. '-------------------------------------------------|----------------
  1276. LOCAL: DIM selector,resumeBool,TermHndl&
  1277. LOCAL FN TMResume(TermHndl&,resumeBool)
  1278. selector = _TMResume
  1279. `     LEA     ^selector,A0
  1280. `     DC.W    CommToolboxDispatch
  1281. END FN
  1282. '-------------------------------------------------|----------------
  1283. 'Page 100 TMScroll (hTerm: TermHandle; dH,dV : INTEGER);
  1284. 'FB       FN TMScroll(TermHndl&,dH,dV)
  1285. '-------------------------------------------------|----------------
  1286. LOCAL: DIM selector,dV,dH,TermHndl&
  1287. LOCAL FN TMScroll(TermHndl&,dH,dV)
  1288. selector = _TMScroll
  1289. `     LEA     ^selector,A0
  1290. `     DC.W    CommToolboxDispatch
  1291. END FN
  1292. '-------------------------------------------------|----------------
  1293. 'Page 98 TMSetConfig (hTerm: TermHandle; thePtr : Ptr): INTEGER;
  1294. 'FB       theErr = FN TMSetConfig(TermHndl&,thePtr&)
  1295. ' thePtr& points to a null terminated C string.
  1296. ' t$ = "FontSize 9 Width 80 Cursor Underline Online True" + CHR$(0)
  1297. ' thePtr& = @t$ + 1
  1298. '-------------------------------------------------|----------------
  1299. LOCAL: DIM selector,thePtr&,TermHndl&
  1300. LOCAL FN TMSetConfig(TermHndl&,thePtr&)
  1301. selector = _TMSetConfig
  1302. `     LEA     ^selector,A0
  1303. `     DC.W    CommToolboxDispatch
  1304. `     EXT.L   D0
  1305. END FN
  1306. '-------------------------------------------------|----------------
  1307. 'Page 109 TMSetRefCon (hTerm: TermHandle; refCon : LONGINT);
  1308. 'FB       FN TMSetRefCon(TermHndl&,refCon&)
  1309. '-------------------------------------------------|----------------
  1310. LOCAL: DIM selector,refCon&,TermHndl&
  1311. LOCAL FN TMSetRefCon(TermHndl&,refCon&)
  1312. selector = _TMSetRefCon
  1313. `     LEA     ^selector,A0
  1314. `     DC.W    CommToolboxDispatch
  1315. END FN
  1316. '-------------------------------------------------|----------------
  1317. 'Page 104 TMSetSelection (hTerm: TermHandle; theSelection:TMSelection
  1318. '                         selType: TMSelTypes);
  1319. 'FB       FN TMSetSelection(TermHndl&,theSelection,selType)
  1320. '-------------------------------------------------|----------------
  1321. LOCAL: DIM selector,theSelectionPtr&,selType,TermHndl&
  1322. LOCAL FN TMSetSelection(TermHndl&,@theSelectionPtr&,selType)
  1323. selector = _TMSetSelection
  1324. `     LEA     ^selector,A0
  1325. `     DC.W    CommToolboxDispatch
  1326. END FN
  1327. '-------------------------------------------------|----------------
  1328. 'Page 104 TMSetupCleanup (procID: INTEGER; theConfig: Ptr;
  1329. '                      count: INTEGER; theDialog: DialogPtr&;
  1330. '                      VAR magicCookie: LONGINT);
  1331. 'FB       FN TMSetupCleanup(procID,theConfig&,count,theDialog&,magicCookie&)
  1332. '-------------------------------------------------|----------------
  1333. LOCAL: DIM selector,magicCookie&,theDialog&,count,theConfig&,procID
  1334. DIM toRead&,buffer&,hConn&
  1335. LOCAL FN TMSetupCleanup(procID,theConfig&,count,theDialog&,@magicCookie&)
  1336. selector = _TMSetupCleanup
  1337. `     LEA     ^selector,A0
  1338. `     DC.W    CommToolboxDispatch
  1339. END FN
  1340. '-------------------------------------------------|----------------
  1341. 'Page 95 TMSetupfilter(procID: INTEGER; theConfig: Ptr;
  1342. '                      count: INTEGER; theDialog: DialogPtr&;
  1343. '                      VAR theEvent: EventRecord; VAR theItem: INTEGER
  1344. '                      VAR magicCookie: LONGINT): BOOLEAN;
  1345. 'FB       Bool = FN TMSetupfilter(procID,theConfig&,count,theDialog&,
  1346. '                      EventRecord&,theItem,magicCookie&)
  1347. '-------------------------------------------------|----------------
  1348. LOCAL: DIM selector,magicCookie&,theItem&,EventRecord&
  1349. DIM theDialog&,count,theConfig&,procID
  1350. LOCAL FN TMSetupfilter(procID,theConfig&,count,theDialog&,EventRecord&,@theItem&,@magicCookie&)
  1351. selector = _TMSetupfilter
  1352. `     LEA     ^selector,A0
  1353. `     DC.W    CommToolboxDispatch
  1354. `     EXT.L   D0
  1355. END FN
  1356. '-------------------------------------------------|----------------
  1357. 'Page 96 TMSetupItem (procID: INTEGER; theConfig: Ptr;
  1358. '                     count: INTEGER; theDialog: DialogPtr&;
  1359. '                     VAR theItem: INTEGER;
  1360. '                     VAR magicCookie: LONGINT);
  1361. 'FB     FN TMSetupItem(procID,theConfig&,count,theDialog&,
  1362. '                      theItem,magicCookie&)
  1363. '-------------------------------------------------|----------------
  1364. LOCAL: DIM selector,magicCookie&,theItem&
  1365. DIM theDialog&,count,theConfig&,procID
  1366. LOCAL FN TMSetupItem(procID,theConfig&,count,theDialog&,@theItem&,@magicCookie&)
  1367. selector = _TMSetupItem
  1368. `     LEA     ^selector,A0
  1369. `     DC.W    CommToolboxDispatch
  1370. END FN
  1371. '-------------------------------------------------|----------------
  1372. 'Page 97 TMSetupPostflight (procID: INTEGER);
  1373. 'FB      FN TMSetupPostflight(procID)
  1374. '-------------------------------------------------|----------------
  1375. LOCAL: DIM selector
  1376. LOCAL FN TMSetupPostflight(procID)
  1377. selector = _TMSetupPostflight
  1378. `     LEA     ^selector,A0
  1379. `     DC.W    CommToolboxDispatch
  1380. END FN
  1381. '-------------------------------------------------|----------------
  1382. 'Page 94 TMSetupPreflight (procID: INTEGER; VAR magicCookie): Handle;
  1383. 'FB      hndl& = FN TMSetupPreflight(procID,magicCookie&)
  1384. '-------------------------------------------------|----------------
  1385. LOCAL: DIM selector,magicCookie&,procID
  1386. LOCAL FN TMSetupPreflight(procID,@magicCookie&)
  1387. selector = _TMSetupPreflight
  1388. `     LEA     ^selector,A0
  1389. `     DC.W    CommToolboxDispatch
  1390. END FN
  1391. '-------------------------------------------------|----------------
  1392. 'Page 95 TMSetupSetup (procID: INTEGER; theConfig: Ptr;
  1393. '                     count: INTEGER; theDialog: DialogPtr&;
  1394. '                     VAR magicCookie: LONGINT);
  1395. 'FB      FN TMSetupSetup(procID,theConfig&,count,theDialog&,
  1396. '                        magicCookie&)
  1397. '-------------------------------------------------|----------------
  1398. LOCAL: DIM selector,magicCookie&
  1399. DIM theDialog&,count,theConfig&,procID
  1400. LOCAL FN TMSetupSetup(procID,theConfig&,count,theDialog&,@magicCookie&)
  1401. selector = _TMSetupSetup
  1402. `     LEA     ^selector,A0
  1403. `     DC.W    CommToolboxDispatch
  1404. END FN
  1405. '-------------------------------------------------|----------------
  1406. 'Page 110 TMSetUserData (hterm: TermHandle; userData : LONGINT);
  1407. 'FB       FN TMSetUserData(TermHndl&,userData&)
  1408. '-------------------------------------------------|----------------
  1409. LOCAL: DIM selector,userData&,TermHndl&
  1410. LOCAL FN TMSetUserData(TermHndl&,userData&)
  1411. selector = _TMSetUserData
  1412. `     LEA     ^selector,A0
  1413. `     DC.W    CommToolboxDispatch
  1414. END FN
  1415. '-------------------------------------------------|----------------
  1416. 'Page 99  TMStream (hterm: TermHandle; theBuffer: Ptr;
  1417. '                   theLength: LONGINT; flags: CMFlags): LONGINT;
  1418. 'FB       bytesProcessed& = FN TMStream(TermHndl&,buffPtr&,
  1419. '                   theLength&,flags&)
  1420. '-------------------------------------------------|----------------
  1421. LOCAL: DIM selector,flags&,theLength&,buffPtr&,TermHndl&
  1422. LOCAL FN TMStream(TermHndl&,buffPtr&,theLength&,flags&)
  1423. selector = _TMStream
  1424. `     LEA     ^selector,A0
  1425. `     DC.W    CommToolboxDispatch
  1426. END FN
  1427. '-------------------------------------------------|----------------
  1428. 'Page 106 TMUpdate (hTerm: TermHandle; visRgn : RgnHandle);
  1429. 'FB       FN TMUpdate(TermHndl&,visRgn&)
  1430. '-------------------------------------------------|----------------
  1431. LOCAL: DIM selector,visRgn&,TermHndl&
  1432. LOCAL FN TMUpdate(TermHndl&,visRgn&)
  1433. selector = _TMUpdate
  1434. `     LEA     ^selector,A0
  1435. `     DC.W    CommToolboxDispatch
  1436. END FN
  1437. '-------------------------------------------------|----------------
  1438. 'Page 91  TMValidate(hTerm: TermHandle) : BOOLEAN;
  1439. 'FB       bool = FN TMValidate(TermHndl&)
  1440. '-------------------------------------------------|----------------
  1441. LOCAL: DIM selector,TermHndl&
  1442. LOCAL FN TMValidate(TermHndl&)
  1443. selector = _TMValidate
  1444. `     LEA     ^selector,A0
  1445. `     DC.W    CommToolboxDispatch
  1446. `     EXT.L   D0
  1447. END FN
  1448. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  1449. '‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢            COMMUNICATIONS RESOURCE MANAGER         ‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢‚Ä¢
  1450. '••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  1451. '-------------------------------------------------|----------------
  1452. 'Page 177 CRMGet1IndResource(theType: ResType; index: INTEGER):
  1453. '                handle;
  1454. 'FB       hndl& = FN CRMGet1IndResource(theType&,theIndex)
  1455. '-------------------------------------------------|----------------
  1456. LOCAL: DIM selector,theIndex,theType&
  1457. LOCAL FN CRMGet1IndResource(theType&,theIndex)
  1458. selector = _CRMGet1IndResource
  1459. `     LEA     ^selector,A0
  1460. `     DC.W    CommToolboxDispatch
  1461. END FN
  1462. '-------------------------------------------------|----------------
  1463. 'Page 178 CRMGet1NamedResource(theType: ResType; name: Str255):
  1464. '                handle;
  1465. 'FB       hndl& = FN CRMGet1NamedResource(theType&,theName$)
  1466. '-------------------------------------------------|----------------
  1467. LOCAL: DIM selector,namePtr&,theType&
  1468. LOCAL FN CRMGet1NamedResource(theType&,@namePtr&)
  1469. selector = _CRMGet1NamedResource
  1470. `     LEA     ^selector,A0
  1471. `     DC.W    CommToolboxDispatch
  1472. END FN
  1473. '-------------------------------------------------|----------------
  1474. 'Page 177 CRMGet1Resource(theType: ResType; theID: INTEGER):
  1475. '                handle;
  1476. 'FB       hndl& = FN CRMGet1Resource(theType&,theID)
  1477. '-------------------------------------------------|----------------
  1478. LOCAL: DIM selector,theID,theType&
  1479. LOCAL FN CRMGet1Resource(theType&,theID)
  1480. selector = _CRMGet1Resource
  1481. `     LEA     ^selector,A0
  1482. `     DC.W    CommToolboxDispatch
  1483. END FN
  1484. '-------------------------------------------------|----------------
  1485. 'Page 176 CRMGetCRMVersion: INTEGER ;
  1486. 'FB       version = FN CRMGetCRMVersion
  1487. '-------------------------------------------------|----------------
  1488. LOCAL FN CRMGetCRMVersion
  1489. selector = _CRMGetCRMVersion
  1490. `     LEA     ^selector,A0
  1491. `     DC.W    CommToolboxDispatch
  1492. `     EXT.L   D0
  1493. END FN
  1494. '-------------------------------------------------|----------------
  1495. 'Page 176 CRMGetHeader: QHdrPtr ;
  1496. 'FB       QHdrPtr& = FN CRMGetHeader
  1497. '-------------------------------------------------|----------------
  1498. LOCAL FN CRMGetHeader
  1499. selector = _CRMGetHeader
  1500. `     LEA     ^selector,A0
  1501. `     DC.W    CommToolboxDispatch
  1502. END FN
  1503. '-------------------------------------------------|----------------
  1504. 'Page 178 CRMGetindex(theHandle: Handle) : LONGINT;
  1505. 'FB       useCount& = FN CRMGetindex(theHandle&)
  1506. '-------------------------------------------------|----------------
  1507. LOCAL: DIM selector
  1508. LOCAL FN CRMGetindex(theHandle&)
  1509. selector = _CRMGetindex
  1510. `     LEA     ^selector,A0
  1511. `     DC.W    CommToolboxDispatch
  1512. END FN
  1513. '-------------------------------------------------|----------------
  1514. 'Page 177 CRMGetIndResource(theType: ResType; index: INTEGER):
  1515. '                Handle;
  1516. 'FB       hndl& = FN CRMGetIndResource(theType&,indx)
  1517. '-------------------------------------------------|----------------
  1518. LOCAL: DIM selector,indx,theType&
  1519. LOCAL FN CRMGetIndResource(theType&,theID)
  1520. selector = _CRMGetIndResource
  1521. `     LEA     ^selector,A0
  1522. `     DC.W    CommToolboxDispatch
  1523. END FN
  1524. '-------------------------------------------------|----------------
  1525. 'Page 179 CRMGetIndToolName (bundleType : OSType
  1526. '               index: INTEGER;VAR NAME: Str255) : OSErr;
  1527. 'FB       OSErr = FN CRMGetIndToolName(bundleType&,indx,ToolName$)
  1528. '-------------------------------------------------|----------------
  1529. LOCAL: DIM selector,ptr&,indx,bundleType&
  1530. LOCAL FN CRMGetIndToolName(bundleType&,indx,@ptr&)
  1531. selector = _CRMGetIndToolName
  1532. `     LEA     ^selector,A0
  1533. `     DC.W    CommToolboxDispatch
  1534. `     EXT.L   D0
  1535. END FN
  1536. '-------------------------------------------------|----------------
  1537. 'Page 178 CRMGetNamedResource(theType: ResType; name: Str255):
  1538. '                handle;
  1539. 'FB       hndl& = FN CRMGetNamedResource(theType&,theName$)
  1540. '-------------------------------------------------|----------------
  1541. LOCAL: DIM selector,namePtr&,theType&
  1542. LOCAL FN CRMGetNamedResource(theType&,@namePtr&)
  1543. selector = _CRMGetNamedResource
  1544. `     LEA     ^selector,A0
  1545. `     DC.W    CommToolboxDispatch
  1546. END FN
  1547. '-------------------------------------------------|----------------
  1548. 'Page 177 CRMGetResource(theType: ResType; theID: INTEGER):
  1549. '                handle;
  1550. 'FB       hndl& = FN CRMGetResource(theType&,theID)
  1551. '-------------------------------------------------|----------------
  1552. LOCAL: DIM selector,theID,theType&
  1553. LOCAL FN CRMGetResource(theType&,theID)
  1554. selector = _CRMGetResource
  1555. `     LEA     ^selector,A0
  1556. `     DC.W    CommToolboxDispatch
  1557. END FN
  1558. '-------------------------------------------------|----------------
  1559. 'Page 174 CRMInstall(crmReqPtr : QElemPtr);
  1560. 'FB       FN CRMInstall(crmReqPtr&)
  1561. '-------------------------------------------------|----------------
  1562. LOCAL: DIM selector
  1563. LOCAL FN CRMInstall(crmReqPtr&)
  1564. selector = _CRMInstall
  1565. `     LEA     ^selector,A0
  1566. `     DC.W    CommToolboxDispatch
  1567. END FN
  1568. '-------------------------------------------------|----------------
  1569. 'Page 178 CRMReleaseResource(theHandle : Handle);
  1570. 'FB       FN CRMReleaseResource(theHandle&)
  1571. '-------------------------------------------------|----------------
  1572. LOCAL: DIM selector
  1573. LOCAL FN CRMReleaseResource(theHandle&)
  1574. selector = _CRMReleaseResource
  1575. `     LEA     ^selector,A0
  1576. `     DC.W    CommToolboxDispatch
  1577. END FN
  1578. '-------------------------------------------------|----------------
  1579. 'Page 175 CRMRemove(crmReqPtr : QElemPtr):OSErr;
  1580. 'FB       OSErr = FN CRMRemove(crmReqPtr&)
  1581. '-------------------------------------------------|----------------
  1582. LOCAL: DIM selector
  1583. LOCAL FN CRMRemove(crmReqPtr&)
  1584. selector = _CRMRemove
  1585. `     LEA     ^selector,A0
  1586. `     DC.W    CommToolboxDispatch
  1587. `     EXT.L   D0
  1588. END FN
  1589. '-------------------------------------------------|----------------
  1590. 'Page 181 CRMLocalToRealID(bundleType: ResType; toolID: INTEGER
  1591. '                theKind: ResType; localID: INTEGER):INTEGER;
  1592. 'FB       realID = FN CRMLocalToRealID(bndlType&,toolID,resType&,ID)
  1593. '-------------------------------------------------|----------------
  1594. LOCAL: DIM selector,ID,resType&,toolID,bndlType&
  1595. LOCAL FN CRMLocalToRealID(bndlType&,toolID,resType&,ID)
  1596. selector = _CRMLocalToRealID
  1597. `     LEA     ^selector,A0
  1598. `     DC.W    CommToolboxDispatch
  1599. `     EXT.L   D0
  1600. END FN
  1601. '-------------------------------------------------|----------------
  1602. 'Page 180 CRMRealToLocalID(bundleType: ResType; toolID: INTEGER
  1603. '                theKind: ResType; realID: INTEGER):INTEGER;
  1604. 'FB       localID = FN CRMRealToLocalID(bndlType&,toolID,resType&,ID)
  1605. '-------------------------------------------------|----------------
  1606. LOCAL: DIM selector,ID,resType&,toolID,bndlType&
  1607. LOCAL FN CRMRealToLocalID(bndlType&,toolID,resType&,ID)
  1608. selector = _CRMRealToLocalID
  1609. `     LEA     ^selector,A0
  1610. `     DC.W    CommToolboxDispatch
  1611. `     EXT.L   D0
  1612. END FN
  1613. '-------------------------------------------------|----------------
  1614. 'Page 174 InitCRM: CRMError ;
  1615. 'FB       CRMError = FN InitCRM
  1616. '-------------------------------------------------|----------------
  1617. LOCAL FN InitCRM
  1618. selector = _InitCRM
  1619. `     LEA     ^selector,A0
  1620. `     DC.W    CommToolboxDispatch
  1621. `     EXT.L   D0
  1622. END FN
  1623. "CTB End"
  1624.